*-------------------------------------------------------*
*- Permite la salida de cualquier sistema               *
*-------------------------------------------------------*
if !used('user')
   zarc = graudbf+gcodsis+'muser'
   use &zarc orde user0cod alias user In 0
endif
gcodusr = iif(!empty(gcodusr), gcodusr, '')
gclausr = iif(!empty(gclausr), gclausr, '')
sele user
seek gcodusr+gclausr
repl Flg_Ingr with " "
repl fch_ingr with {  /  /  }
repl hor_ingr with space(8)
= clos_dbf("user")
clear events
set help on
set path to
set sysm to defa
set defa to &qdefa
set stat bar on
= INSMODE(.T.)     && activa el modo insertar
_screen.picture = ''
DIMENSION vbar[15,2]
for i = 1 to alen(vbar, 1)
   if vbar[i,2]
      show window (vbar[i,1])
   endif
endfor
release xpar4
CLOSE DATABASES
CLEAR

*- eof: libp0002.prg